use gcd;

$i=1;
for ($j=1;$j<=20;$j++) {
    $i=lcm($j,$i);
}

print "$i\n";